home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / DFUE / AmTalk / Rexx / ntalk.amirx next >
Encoding:
Text File  |  2000-05-31  |  425 b   |  21 lines
  1. /*ntalk.amirx*/
  2.  
  3. options results
  4. getselecteduser
  5. nuser=result
  6. userhost nuser
  7. name = result
  8. parse var name user '@' host
  9. if ~show(l, "rexxsupport.library") then
  10.     if ~addlib("rexxsupport.library", 0, -30) then
  11.         exit
  12. IF  ~SHOW('P','AMTALK')  THEN DO   /* Already there */
  13.         ADDRESS COMMAND 'run >nil: AmTalk '
  14.         address
  15.         waitforport amtalk
  16. end
  17. address amtalk
  18.         talk user host
  19.         exit
  20. end
  21.